From 9c4bf7d54b4c8dfa3734b04eb2651e285d857712 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 9 Apr 2009 11:06:23 +0000 Subject: [PATCH] (unidata-describe-decomposition): Return a string with a composition property to disable combining characters being composed. --- admin/unidata/unidata-gen.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el index d82ba7aa432..5a03fd71431 100644 --- a/admin/unidata/unidata-gen.el +++ b/admin/unidata/unidata-gen.el @@ -1134,8 +1134,13 @@ Property value is a character." (ON . "Other Neutrals"))))) (defun unidata-describe-decomposition (val) - (mapconcat #'(lambda (x) (if (symbolp x) (symbol-name x) (string ?' x ?'))) - val " ")) + (mapconcat + #'(lambda (x) + (if (symbolp x) (symbol-name x) + (concat (string ?') + (compose-string (string x) 0 1 (string ?\t x ?\t)) + (string ?')))) + val " ")) ;; Verify if we can retrieve correct values from the generated ;; char-tables. -- 2.30.2